library(tidyverse)
library(DeclareDesign)
library(rdss)

sims <- 2000
bootstrap_sims <- 2000

source("code/declarations/declaration_16.2.R")

diagnosis_16.2 <-
  diagnose_design(declaration_16.2,
                  sims = sims, bootstrap_sims = bootstrap_sims)

write_rds(diagnosis_16.2, file = "diagnosis_objects/diagnosis_16.2.rds")